4 PRINTCHR$(142):D$="":FORI=1TO50:C$="[146]":IFI/2=INT(I/2)THENC$="
9 [153]"LOAD":[153]C$;D$;"(null)TANRIGHT$(null)TANRIGHT$ ORTANRIGHT$ (null)TANRIGHT$":[153]C$;D$;"(null) (null)(null) (null) (null) (null) (null)  ":[153]C$;D$;"-TAN(null)(null)CLOSE(null)CLOSE(null)CLOSE(null)CLOSEMID$TANRIGHT$":[153]C$;D$;"(null)  (null) (null) (null) (null)   (null)":[153]C$;D$;"(null)  MID$TAN(null) /TAN(null) MID$TAN(null)":[129]J[178]1[164]30:[130]:[130]:[134]GS$(20):BL$[178]"                     CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD
118 HL$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]":D1$=CHR$(16):D2$=CHR$(13):D3$=CHR$(14):D4$=CHR$(15):MS$="PLEASE WAIT...":E1$="[192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][219]":GOSUB2130:END::
150 P1$="":PX=0:PF=0
160 GETA$:PRINT" [157]";:IFA$=CHR$(13)ORA$=CHR$(20)ANDPX=0GOTO160
165 IFA$=CHR$(20)THENPX=PX-1:P1$=LEFT$(P1$,PX):PRINTA$;:GOTO160
170 FORD=1TO40:NEXT:PRINT"[146] [157]";A$;:IFA$=","THENP1=VAL(P1$):PF=2:
190 IFA$="."THENP1=VAL(P1$):PF=1:IFP1=0THENPF=3
200 IFPF<>0GOTO225
210 P1$=P1$+A$:IFA$<>""THENPX=PX+1
220 GOTO160
225 RETURN::
250 GETY1$:IFY1$<>"Y"ANDY1$<>"N"THEN250
260 YF=2:IFY1$="Y"THENYF=1
270 RETURN::
300 PRINT"[147]BACK TO MENU (Y/N) ?":GOSUB250:RETURN::
340 PRINT"":FORIA=1TOSL:PRINT"";:NEXT:PRINTBL$:RETURN::::
400 PRINT#4,D2$D2$D2$:ONC3GOTO460,970,470,970,480
460 PRINT#4,D3$"SUMMARY STATISTICS"D4$:GOTO490
470 PRINT#4,D3$"FREQUENCY HISTOGRAM"D4$:GOTO490
480 PRINT#4,D3$"BAR GRAPH"D4$:GOTO490
490 PRINT#4,D2$:RETURN::
510 I=1:J=1
530 IFPT%(I)=0GOTO680
540 IFPT%(I)>0THENONVAL(C3$)GOSUB1690,980,1180,980,980,840
600 IFPT%(I)<0THENONVAL(C3$)GOSUB1900,990,1280,990,1580,990
660 I=I+1:GOTO530
680 RETURN::
700 PRINT"[147]":FORX=1TONC:ME(X)=0:TT(X)=0:NU(X)=0:NEXT:M8=0:M1=9E-30:M2=9E3:RETURN::
770 FORX=1TONC:SS(X)=0:VA(X)=0:ST(X)=0:NEXT:RETURN::::
840 PRINTMS$:FORN=1TOND:IFOM%(PT%(I),N)=1GOTO920
880 IFMT(PT%(I),N)>M1THENM1=MT(PT%(I),N)
890 IFMT(PT%(I),N)<M2THENM2=MT(PT%(I),N)
900 TT(J)=TT(J)+MT(PT%(I),N):NU(J)=NU(J)+1
920 NEXT:IFPT%(I+1)<0THENME(J)=TT(J)/NU(J)
940 IFME(J)>M8THENM8=ME(J)
950 RETURN::
970 RETURN
980 I=I+1:RETURN
990 J=J+1:RETURN::::
1020 PRINT"VAR: ";VP$:PRINT"LEVEL: ";LP$(J);D2$:RETURN::
1070 PRINT"[147]HISTOGRAM":PRINTHL$:PRINT"GRAPH RANGE:":PRINTHL$:PRINT"MIN",M2:PRINT"MAX",M1:PRINT"USE THESE (Y/N)?":GOSUB250:IFYF=1GOTO1140
1120 INPUT"MIN. VALUE";M2:INPUT"MAX. VALUE";M1
1140 PRINT"":INPUT"NO. INTERVALS (<=20)";NI:I2=(M2-M1)/NI:RETURN::
1180 FORN=1TOND:IFOM%(PT%(I),N)=1GOTO1250
1210 Z1=INT((MT(PT%(I),N)-M1)/I2)+1:IFMT(PT%(I),N)>M1GOTO1250
1230 IFMT(PT%(I),N)<=M2GOTO1250
1240 GS$(Z1)=GS$(Z1)+"[166]
1250 [130]:[142]::
1280 [157]4:[141]1020:[152]4,D1$"20""FREQUENCY ":[152]4,D1$"200"D1$"3010"D1$"4020"D1$"5030"D1$"6040":[152]4,M1;">= ";D1$"20";"(null)";E1$:[129]K[178]1[164]NI:[152]4,D1$"20""+";GS$(K);[195](GS$(K)):[152]4,"> ";M1[170]K[172]I2;">= ";D1$"20""<":[130]:J[178]J[170]1:[152]4,D2$:[129]U[178]1[164]20:GS$(U)[178]"":[130]:[142]::
1410 [153]"LOADGRAPH RANGE :":[153]HL$:[153]"MIN",0:[153]"MAX",M8:[153]"USE THESE   (Y/N)":[141]250:[139]YF[178]1[137]1460
1450 [133]"NEW MAX";M8
1460 [142]::
1480 [152]4,"VARIABLE :":[152]4,VP$D2$D1$"35MEAN DATA VALUE":I2[178]M8[173]40:[152]4,D1$"35"I2[172]10D1$"55"I2[172]30:[152]4,D1$"25"0;D1$"35^"D1$"45"I2[172]20D1$"55^"D1$"65"I2[172]40:[152]4,"LEVEL :";
1550 [152]4,D1$"25(null)";E1$D2$:[142]::
1580 [152]4,LP$(J);D1$;"25+";:[139]ME(J)[178]0[167][152]4,ME(J):[137]1630
1610 [129]P[178]1[164]ME(J)[173]I2:[152]4,"SPC(";:[130]:[152]4,ME(J):[139]LI[178]0[137]1640
1630 [139][181](J[173]LI)[178]J[173]LI[167][141]1550
1640 J[178]J[170]1:[142]::::
1690 [153]"LOAD";MS$:[129]N[178]1[164]ND:[139]OM%(PT%(I),N)[178]1[137]1740
1720 A[178]MT(PT%(I),N)[171]ME(J):SS(J)[178]SS(J)[170](A[172]A)
1740 [130]:[139]PT%(I[170]1)[177]0[137]1790
1760 [139]NU(J)[178]1[167]VA(J)[178]0:[137]1780
1770 VA(J)[178]SS(J)[173](NU(J)[171]1)
1780 ST(J)[178][186](VA(J))
1790 [142]::
1810 [153]"LOADOUTPUT TO :":[153]HL$:[153]"1. SCREEN":[153]"2. PRINTER
1840 GETSO$:IFSO$<>"1"ANDSO$<>"2"GOTO1840
1850 IFSO$="1"THENPRINT"[147]":GOTO1880
1860 GOSUB400:PRINT#4,"VARIABLE :"D2$;VP$D2$"LEVEL :";:PRINT#4,D1$"20#OBS."D1$"28TOTAL"D1$"37MEAN"D1$"51VARIANCE"D1$"65STD. DEV.
1880 [142]::
1900 [145][197](SO$)[141]2010,1950:[142]::
1950 [152]4,LP$(J):[152]4,D1$"20"NU(J);D1$"28"TT(J);D1$"37"ME(J);D1$"51"VA(J);D1$"65"ST(J):J[178]J[170]1:[142]::
2010 [153]"LOAD":[141]1020:[153]HL$:[153]"TOTAL    ";TT(J):[153]"MEAN     ";ME(J):[153]"VARIANCE ";VA(J):[153]"STD DEV  ";ST(J):[153]"PRESS <RETURN>
2080 GETA$:IFA$<>CHR$(13)GOTO2080
2100 J=J+1:RETURN::
2130 PRINT"[147]":POKE214,3:PRINT:PRINT"PODS[146]":PRINT"  1.[146] DATA":PRINT"  2.[146] STATISTICS":PRINT"  3.[146] EXIT PRG.
2180 [161]C1$:[139][197](C1$)[179]1[176][197](C1$)[177]3[167]2180
2200 [145][197](C1$)[141]2250,2430:[139][197](C1$)[179][177]3[137]2130
2230 [142]::
2250 [143]
2260 [153]"LOAD":[151]214,3:[153]:[153]"      DATA WAIT":[153]"  1.WAIT  NEW":[153]"  2.WAIT  OLD":[153]"  3.WAIT  CHANGE":[153]"  4.WAIT  SAVE":[153]"  5.WAIT  GROUP DATA":[153]"  6.WAIT  MAIN MENU
2330 GETC2$:IFVAL(C2$)<1ORVAL(C2$)>6GOTO2330
2345 GOSUB300:IFYF=1THEN2260
2350 ONVAL(C2$)GOSUB2630,4190,3540,4190,3080:IFVAL(C2$)<>6GOTO2250
2410 RETURN::
2430 IFF1=0THENC3$="6":GOSUB700:GOSUB510:F1=1
2450 PRINT"[147]":POKE214,3:PRINT:PRINT"      STATISTICS[146]":PRINT"  1.[146] SUMMARY STATS":PRINT"  2.[146] ":PRINT"  3.[146] HISTOGRAM":PRINT"  4.[146] ":PRINT"  5.[146] BAR GRAPH":PRINT"  6.[146] MAIN MENU
2520 [161]C3$:[139][197](C3$)[179]1[176][197](C3$)[177]6[137]2520
2540 C3[178][197](C3$):[139]C3[178]1[167][159]4,4:[141]1810:[141]770:[141]510::[160]4
2560 [139]C3[178]2[167][141]970
2570 [139]C3[178]3[167][159]4,4:[141]1070:[141]400:[141]510:[160]4
2580 [139]C3[178]4[167][141]510
2590 [139]C3[178]5[167]:[141]1410:[159]4,4:[141]400:[141]1480:[141]510::[160]4
2600 [139][197](C3$)[179][177]6[137]2430
2610 [142]::
2630 [153]"LOADINPUT   NUMBER   OF   VARIABLES (<=5)":[133]NV:[134]LV$(NV),NL%(NV[170]1):[129]I[178]1[164]NV:[153]"LOADLABEL FOR VARIABLE ";I:[133]LV$(I):LV$(I)[178]LV$(I)[170]" ":[153]"HOW MANY LEVELS IN    VARIABLE ";LV$(I):[133]NL%(I):[139]MX[179]NL%(I)[167]MX[178]NL%(I)
2760 [130]:A[178]1:[129]I[178]1[164]NV:A[178]A[172]NL%(I):[130]:[134]LP$(A):[134]LL$(5,MX):[129]I[178]1[164]NV:[153]"LOAD VARIABLE ";LV$(I):[153]HL$:[129]J[178]1[164]NL%(I):[153]"LABEL FOR LEVEL ";J:[133]LL$(I,J):LL$(I,J)[178]LL$(I,J)[170]" ":[130]:[130]:[129]I[178]1[164]NV:L1%(I)[178]I:[130]:[141]5020:NC[178]1:[129]I[178]1[164]NV:NC[178]NC[172]NL%(I):[130]:[134]ME(NC),TT(NC),NU(NC),SS(NC),VA(NC),ST(NC)
2940 [153]" LOADHOW MANY DATA POINTS  PER CELL":[133]ND:[134]MT(NC,ND),PT%(NC[172]2[170]2),OM%(NC,ND):[129]I[178]1[164]NC:[153]"LOADCELL NO.";I:[153]HL$:[153]LP$(I):[153]HL$:[129]N[178]1[164]ND:[153]"DATA#";N;:[133]TM$:[139]TM$[178]"*"[167]OM%(I,N)[178]1[137]3030
3020 MT(I,N)[178][197](TM$)
3030 [139]N[173]15[178][181](N[173]15)[167][153]"LOADCELL NO.";I:[153]HL$:[153]LP$(I):[153]HL$
3040 [130]:[130]:[142]::
3080 [143]
3090 [153]"LOAD    VARIABLES":[153]HL$:[129]I[178]1[164]NV:[153]I;"CMD.";LV$(I):[130]:[153]HL$:[153]"INPUT VARIABLE ORDER.":[153]"INPUT   VARIABLE  NO. FOLLOWED BY A PERIOD.":[153]"INPUT '0.' FOR END.":[153]HL$:NG[178]1:I[178]1
3180 [153]:[153]"#";I;" ORDER  ";:[141]150:[145]PF[137]3184,3186,3200
3184 [139]I[177]NV[167][153]"LOADREGROUP DATA":[129]IA[178]1[164]250:[130]:[137]3090
3185 [137]3190
3186 [153]"ONON":[137]3180
3190 KY%(I)[178]P1:[139]NL%(KY%(I))[179][177]0[167]NG[178]NG[172]NL%(KY%(I))
3200 LI[178]NL%(KY%(I[171]1)):[139]PF[178]3[137]3220
3210 [139]I[179][178]NV[167]I[178]I[170]1:[137]3180
3220 CG[178]NC[173]NG:VP$[178]"":[129]I[178]1[164]5:VP$[178]VP$[170]LV$(KY%(I)):[130]
3250 [153]"LOADDATA GROUPING : ":[153]HL$:[153]"SEPERATE CELLS WITHIN GROUPS BY COMMA.":[153]"END  GROUPS   WITH    PERIODS.":[153]"END GROUPING WITH '0.'":[153]"YOU HAVE";NC;"CELLS.":[153]"YOU NEED";NG;"GROUPS":[153]"WITH";CG;"CELLS/GROUP.":[153]HL$:W[178]1:I[178]1:[153]"GROUP";W,
3320 [141]150:PT%(I)[178]P1:[145]PF[137]3350,3360,3370
3350 I[178]I[170]1:PT%(I)[178][171]9:W[178]W[170]1:[153]:[153]"GROUP";W,
3360 I[178]I[170]1:[139]I[177]NC[170]NG[170]1[167][153]"LOADREGROUP DATA":[129]Z[178]1[164]250:[130]:[137]3250
3365 [137]3320
3370 [153]"LOAD";MS$:[129]I[178]1[164]NV:L1%(I)[178]KY%(I):[130]:[141]5020:F1[178]0:[142]::
3540 [153]"LOAD":[153]"   1. CHANGE DATA":[153]"   2. CHANGE LABEL
3580 GETCF$:IFVAL(CF$)<>1ANDVAL(CF$)<>2GOTO3580
3590 ONVAL(CF$)GOSUB3630,3790:RETURN::
3630 PRINT"[147]1. SINGLE":PRINT"2. CONTINUOUS
3650 [161]SE$:[139]SE$[179][177]"1"[175]SE$[179][177]"2"[167][137]3650
3660 [133]"  START AT CELL...";S:[133]"  END AT CELL...";E:[139]E[177]NC[167]E[178]NC
3675 [129]I[178]1[164]NV:L1%(I)[178]I:[130]:[141]5020:[129]I[178]S[164]E:[153]"LOADCELL NO. ";I:[153]LP$(I):[153]HL$:[129]J[178]1[164]ND:[153]"DATA#";J,:[139]OM%(I,J)[178]1[167][153]:[137]3730
3720 [153]MT(I,J)
3730 [139][181](J[173]15)[178]J[173]15[167][141]3960:[153]"LOADCELL NO. ";I:[153]LP$(I):[153]HL$
3740 [130]:[139][181](J[173]15)[179][177]J[173]15[167][141]3960
3760 [130]:[142]::
3790 [153]"LOADVARIABLES":[153]HL$:J[178]0:[129]I[178]1[164]NV:[153]I;" ";LV$(I):[130]:[141]3960:[129]I[178]1[164]NV:[153]"LOADVARIABLE: ";LV$(I):[153]HL$:[129]J[178]1[164]NL%(I):[153]J;" ";LL$(I,J):[130]:[141]3960:[130]:[142]::::
3960 [143]
3970 SL[178]20:[141]340:[153]"CHANGE   (Y/N)":[141]250:[139]YF[178]2[167]4170
4010 SL[178]20:[141]340:[133]"WHICH ENTRY";EN:[139]EN[177]ND[167][137]3970
4020 SL[178]19:[141]340:[153]"ENTRY";EN:[139][197](CF$)[178]2[137]4110
4040 SL[178]20:[141]340:[133]"NEW VALUE";TM$:SL[178]19:[141]340:SL[178]20:[141]340:[139]TM$[178]"S"[167][137]4160
4060 [139]TM$[178]"*"[167]OM%(I,EN)[178]1:[137]4080
4070 MT(I,EN)[178][197](TM$):OM%(I,EN)[178]0
4080 [139]SE$[178]"2"[167]EN[178]EN[170]1:[139]EN[177]ND[167][137]4170
4090 [139]SE$[178]"2"[167][137]4020
4100 [137]4160
4110 [139]J[178]0[137]4140
4120 SL[178]20:[141]340:[133]"NEW LABEL";LL$(I,EN):LL$(I,EN)[178]LL$(I,EN)[170]" ":SL[178]20:[141]340:[137]4160
4140 SL[178]20:[141]340:[133]"NEW LABEL";LV$(EN):LV$(EN)[178]LV$(EN)[170]" ":SL[178]20:[141]340:[137]4160
4160 [141]3960
4170 [142]::
4190 [153]"LOAD1. TAPE":[153]"2. DISC
4210 GETA$:IFVAL(A$)<1ORVAL(A$)>2GOTO4210
4230 F2=0
4240 PRINT:INPUT"FILENAME";FL$:ONVAL(C2$)GOSUB970,4610,970,4320:IFF2=1THENGOTO4240
4300 RETURN::
4320 IFVAL(A$)=1GOTO4350
4340 IFVAL(A$)=2GOTO4360
4350 OPEN1,1,2,FL$:GOTO4390
4360 OPEN15,8,15:OPEN1,8,8,"0:"+FL$+",S,W":INPUT#15,A:IFA=63THENPRINT#15,"I":CLOSE1:CLOSE15:F2=1:GOTO4590
4390 PRINT#1,NV:FORI=1TONV:PRINT#1,LV$(I):PRINT#1,NL%(I):NEXT:FORI=1TONV:FORJ=1TONL%(I):PRINT#1,LL$(I,J):NEXT:NEXT:PRINT#1,NC:PRINT#1,ND:FORI=1TONC:FORN=1TOND:TM$=STR$(MT(I,N)):IFOM%(I,N)=1THENTM$="*
4540 [152]1,TM$:[130]:[130]:[160]1:[160]15:F2[178]0
4590 [142]::
4610 [139][197](A$)[178]1[137]4650
4630 [139][197](A$)[178]2[137]4660
4640 [153]"LOAD
4650 OPEN1,1,0,FL$:GOTO4690
4660 OPEN15,8,15:OPEN1,8,8,"0:"+FL$+",S,R":INPUT#15,A:IFA=62THENPRINT#15,"I":CLOSE1:CLOSE15:F2=1:GOTO5010
4690 INPUT#1,NV:DIMLV$(NV),NL%(NV+1):FORI=1TONV:INPUT#1,LV$(I):INPUT#1,NL%(I):IFMX<NL%(I)THENMX=NL%(I)
4750 NEXT:A=1:FORI=1TONV:A=A*NL%(I):NEXT:DIMLP$(A):DIMLL$(5,MX):FORK=1TO5:LL$(K,0)=" ":NEXT:FORI=1TONV:FORJ=1TONL%(I):INPUT#1,LL$(I,J):NEXT:NEXT:INPUT#1,NC:DIMME(NC),TT(NC),NU(NC),SS(NC),VA(NC),ST(NC):INPUT#1,ND:DIMMT(NC,ND),PT%(NC*2+1),OM%(NC,ND):FORI=1TONC:FORN=1TOND:INPUT#1,TM$:IFTM$="*"THENOM%(I,N)=1:GOTO4970
4960 MT(I,N)=VAL(TM$)
4970 NEXT:NEXT:CLOSE1:CLOSE15:F2=0
5010 RETURN::
5020 N=1:J=0:K=0:L=0:M=0:FORI=1TONL%(L1%(1)):IFNV>1THENFORJ=1TONL%(L1%(2))
5027 IFNV>2THENFORK=1TONL%(L1%(3))
5029 IFNV>3THENFORL=1TONL%(L1%(4))
5030 ::IFNV>4THENFORM=1TONL%(L1%(5))
5033 LP$(N)=LL$(L1%(1),I)+LL$(L1%(2),J)+LL$(L1%(3),K)+LL$(L1%(4),L)+LL$(L1%(5),M):N=N+1:IFNV>4THENNEXT
5039 IFNV>3THENNEXT
5041 IFNV>2THENNEXT
5043 IFNV>1THENNEXT
5045 NEXT:RETURN